EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/mailerproject.module

Text File | 1996-11-23 | 506b | 49 lines

MODULE MailerProject;

VAR
  retnum : NUMBER;

MENU $menu1;

ITEM $item1_1 "O"
  Standard.M_Open
END;

ITEM $item1_2 "alt r"
  Standard.Reload
END;

ITEMBAR;

ITEM $item1_3 "*"
  Save("PRT:")
END;

ITEMBAR;

ITEM $item1_4 "escape"
  Iconify
END;

ITEMBAR;

ITEM $item1_5 "?"
  About
END;

ITEMBAR;

ITEM $item1_6 "E"
  retnum:=Ask($text1,$text2);
  IF retnum=0 THEN
    BlockArea([%SOT,%SOT],[%EOT,%EOT],">",3)
  END;
  Standard.Save_Quit
END;

ITEM $item1_7 "Q"
  Standard.M_Quit
END;

END MailerProject.